library(ggplot2)
library(webr)
library(dplyr)
first.ring <- c("Genotype","Locations","Year","Management")
second.ring <- list(c("228 cultivars","year of release\n1960-2016","SNIP"),
c("6 locations","soil map","experimental deisgn"),
c("precipitation","iradiance","temperature"),
c("plant protection","irrigation","fertilization"))
repid <- purrr::map_dbl(second.ring,~{
length(.x)
})
pheno <- purrr::map2(first.ring,repid,~{
rep(.x,each=.y)
}) %>% unlist()
td <- data.frame(phenotype=pheno,factor1=second.ring %>% unlist()) %>%
group_by(phenotype) %>%
mutate(n=n()) %>% ungroup()
PieDonut(td, aes(phenotype, factor1, count=n),
explode = c(1,2,3,4),r0 = .5,
addDonutLabel = TRUE,
# family = "Arial",
showRatioDonut = F, labelposition = 0.2,
showRatioPie = F)Data Publication of BRIWECS Consortium
1 Overview
2 Agronomic traits
2.1 Seedyield
2.2 Seedyield_bio
Warning in sprintf("#| fig-cap: yield vs yield bio-correlation", tr): one
argument not used by format '#| fig-cap: yield vs yield bio-correlation'
2.3 Biomass_bio
2.4 Harvest_Index_bio
2.5 TGW
2.6 TGW_bio
2.7 Spike_number_bio
2.8 Plantheight_bio
3 yield quality
3.1 Sedimentation
3.2 Falling_number
3.3 Crude_protein
3.4 Protein_yield
4 Phenology
4.1 Emergence_date
4.2 BBCH59
4.3 BBCH87
5 Pathogens
5.1 Stripe_rust
5.2 Powdery_mildew
5.3 Leaf_rust
5.4 Septoria
5.5 DTR
5.6 Fusarium
6 Management
### `Sowing_date`
::: {.cell}
::: {.cell-output-display}
{#fig-Sowing_date-dp width=672}
:::
:::